﻿module Lexer

open System.Text
open Microsoft.FSharp.Text.Lexing
open Microsoft.FSharp.Text
open CLexer


let runLexer fileName = 
    let p = CLexer.init fileName
    seq { while not p.IsPastEndOfStream do
            yield CLexer.initial p
    }
